home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.eng < prev    next >
Text File  |  1993-11-19  |  18KB  |  763 lines
  1. ; CD Answer Installation Script - Generic                         jdk,ejf,hg
  2.  
  3. ; <<CDA>> Jun 1 1993;3.2
  4.  
  5. ; single/multiple disk version
  6. ;
  7. ;   To customize this install script:
  8. ;      1. Put the product name (1-8 characters) in a file called
  9. ;         'PRODNAME'. There should be no carriage return/line feed at
  10. ;         the end of the name- the file should contain just the characters
  11. ;         of the name.
  12. ;      2. Put the application name (CD Author 4 character project identifier)
  13. ;         in a file called 'APPLNAME'. Again, no other chars should be
  14. ;         the file. Multiple applications are formed by adding a space,
  15. ;         then another application identifier
  16. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  17. ;         There should not be more than 10 lines.
  18. ;
  19. ;    The first disk must contain the \INSTALL directory.
  20. ;    This contains the general system files for the install
  21. ;    process and may be repeated on disk #2, etc.
  22. ;    The application specific files are kept in a directory
  23. ;    named 'DISK1'. If additional disks are required, create
  24. ;    an (empty) file on the current disk named '\MORE' and
  25. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  26.  
  27. BREAK abort
  28.  
  29. ; install disk
  30. PARSE_PATH <$ProgDir>
  31. SET insdrive = <$Drive>
  32. SET ins = <insdrive>\INSTALL
  33. SET curdisk = 1
  34. GOSUB need_disk
  35.  
  36. ; here are some defaults:
  37.  
  38. ;  default destination drive
  39. PARSE_PATH <$CurDir>
  40. SET def_dest = C:\
  41. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  42.  
  43. ;TFPL - 2-6-93
  44. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  45. ;CONFIG ColorSet = 55
  46. ;TFPL
  47.  
  48. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  49. SET def_cdtype = High Sierra
  50. SET def_driver = FS_HSGEN
  51. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  52. SET def_cdtype = ISO
  53. SET def_driver = FS_ISGEN
  54. :ok_driver
  55.  
  56. ;  language
  57. SET def_lang = <$Language>
  58.  
  59. ; application name(s) (4 char ident(s) on CD-ROM)
  60. READFILE names = <ins>\APPLNAME.
  61.  
  62. ; product name (application name for batch file, subdirectory name)
  63. READFILE prod = <ins>\PRODNAME.
  64.  
  65. ; default dest drive and directory
  66. PARSE_PATH <def_dest><prod>.CD
  67. SET dstdrive = <$Drive>
  68. SET path = <$Dir>
  69. CD <dstdrive>\
  70.  
  71. ; read and display Application Installation Screen
  72. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  73. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  74. GOTO show_banner
  75. :no_banner
  76. SET screen =
  77. ----        CD Answer Installation for:\n\n
  78. ----               <prod>\n\n
  79. ----        Application(s): <names>
  80. :show_banner
  81. CLEAR
  82. TEXT <screen>
  83. SET screen =
  84. WAIT
  85.  
  86. GOTO okdir
  87. :getdir
  88. CLEAR
  89. TEXT \nError -\n\n
  90. ----  The path "<dstdrive><path>" is not allowed!\n
  91. ----There must be both a drive and a valid subdirectory name in order
  92. ---- to install the software.
  93. WAIT
  94. :okdir
  95. CLEAR
  96. TEXT The retrieval software must be installed on your hard disk or on a
  97. ---- formatted floppy disk. The standard values are drive <dstdrive> (normally
  98. ---- the hard disk), and a subdirectory named <path>. To use these values,
  99. ---- press the ┘ (Enter) key twice. To alter them, type the new drive or
  100. ---- subdirectory at the appropriate prompt, then type ┘ (Enter).
  101.  
  102.  
  103. INPUT 6,6,5 dstdrive = Install on drive     ?
  104. INPUT 6,8,40 path    = Install in directory ?
  105. SET dest = <dstdrive><path>
  106. SET confile = <ins>\_DW_.CFG
  107.  
  108. IF "<dstdrive>"=="" GOTO getdir
  109. IF "<path>"=="\" GOTO getdir
  110. IF "<path>"=="" GOTO getdir
  111. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  112.  
  113. CD <dstdrive>\
  114.  
  115. IF NOT DIREXISTS <dest> GOTO nopath
  116. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  117. CLEAR
  118. TEXT The directory "<dest>" already exists.
  119. NEWMENU 1, 3, 70
  120. ;TFPL 2-6-93
  121. ;****MENU Remove the old version; install only software
  122. MENU Remove old version; install new software & only English interface
  123. MENU Remove old version; install all language interfaces
  124. ;TFPL
  125. MENU Remove old version; do not install new software
  126. MENU Alter configuration; do not copy software
  127. MENU Stop the installation without making any changes
  128. ENDCHOICES
  129.  
  130. ;TFPL 2-6-93
  131.  
  132. ;****CHOICE 1
  133. ;****CLEAR
  134. ;****TEXT Deleting previous contents of <dest>...
  135. ;****FOREACH name = <names>
  136. ;**** DEL <dest>\<name>*.*
  137. ;****NEXT
  138. ;****DEL <dest>\FS_*.DRV
  139. ;****DEL <dest>\SC_*.DRV
  140. ;****DEL <dest>\PR_*.DRV
  141. ;****DEL <dest>\GR_*.DRV
  142. ;****DEL <dest>\_DW_*.*
  143. ;****DEL <dest>\ADL_MSGS.*
  144. ;****DEL <dest>\DW.EXE
  145. ;****DEL <dest>\UPDATE.EXE
  146. ;****GOTO tfpl_drive
  147.  
  148.  
  149. CHOICE 1
  150. CLEAR
  151. TEXT Deleting previous contents of <dest>...
  152. FOREACH name = <names>
  153.  DEL <dest>\<name>*.*
  154. NEXT
  155. DEL <dest>\FS_*.DRV
  156. DEL <dest>\SC_*.DRV
  157. DEL <dest>\PR_*.DRV
  158. DEL <dest>\GR_*.DRV
  159. DEL <dest>\_DW_*.*
  160. DEL <dest>\ADL_MSGS.*
  161. DEL <dest>\DW.EXE
  162. DEL <dest>\UPDATE.EXE
  163. SET ch = 2
  164. GOTO okpath
  165. ;TFPL
  166.  
  167. CHOICE 2
  168. CLEAR
  169. TEXT Deleting previous contents of <dest>...
  170. FOREACH name = <names>
  171.  DEL <dest>\<name>*.*
  172. NEXT
  173. DEL <dest>\FS_*.DRV
  174. DEL <dest>\SC_*.DRV
  175. DEL <dest>\PR_*.DRV
  176. DEL <dest>\GR_*.DRV
  177. DEL <dest>\_DW_*.*
  178. DEL <dest>\ADL_MSGS.*
  179. DEL <dest>\DW.EXE
  180. DEL <dest>\UPDATE.EXE
  181. SET ch = 3
  182. GOTO okpath
  183.  
  184.  
  185.  
  186. CHOICE 3
  187. CLEAR
  188. TEXT Removing <dest> directory...
  189. FOREACH name = <names>
  190.  DEL <dest>\<name>*.*
  191. NEXT
  192. DEL <dest>\FS_*.DRV
  193. DEL <dest>\SC_*.DRV
  194. DEL <dest>\PR_*.DRV
  195. DEL <dest>\GR_*.DRV
  196. DEL <dest>\_DW_*.*
  197. DEL <dest>\ADL_MSGS.*
  198. DEL <dest>\DW.EXE
  199. DEL <dest>\UPDATE.EXE
  200. IF NOT EXISTS <dest>\*.* GOTO remdest
  201. TEXT <dest> directory has unknown files, directory not removed!!
  202. WAIT
  203. GOTO norem
  204. :remdest
  205. RD <dest>
  206. :norem
  207. DEL <dstdrive>\<prod>.BAT
  208. GOTO end2
  209.  
  210. CHOICE 4
  211. SET alter = Y
  212. SET confile = <dest>\_DW_.CFG
  213. GOTO okpath
  214.  
  215. CHOICE 5
  216. GOTO end2
  217. ENDCHOICES
  218.  
  219. :nopath
  220. MD <dest>
  221. IF NOT DIREXISTS <dest> GOTO getdir
  222. ;TFPL 2-6-93
  223.  
  224. TEXT New Installation
  225. NEWMENU 1, 3, 64
  226. ;MENU Install only the retrieval software
  227. MENU Install retrieval software and only English language interface
  228. MENU Install retrieval software and all language interfaces
  229. ENDCHOICES
  230.  
  231. ;CHOICE1
  232. ;CLEAR
  233. ;:tfpl_drive
  234. ;GOTO tfp1
  235. ;:tfpl_drive_error
  236. ;TONE
  237. ;TEXT Error: The database is not available on the specified drive...\n\n
  238. ;:tfp1
  239. ;TEXT Database location:\n\n
  240. ;----Please enter the drive letter of the CD-ROM from which you are
  241. ;---- installing the application...
  242. ;
  243. ;INPUT 2,10,1 inst_drive = CD-ROM drive letter ?
  244. ;IF "inst_drive"=="" GOTO tfpl_drive
  245. ;
  246. ;SET instdrive = <inst_drive>:\
  247. ;CONFIG Driver = "<inst_drive>:\"
  248. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  249. ;IF NOT DIREXISTS <instdrive> GOTO tfpl_drive_error
  250. ;SET ch = 1
  251. ;----------------------------------------------------------------------------
  252.  
  253. ;IF NOT EXISTS <confile> GOTO disp_choice
  254. ;DISP 5,14 Reading configuration...
  255. ;READCONFIG <confile>
  256.  
  257.  
  258. ;----------------------------------------------------------------------------
  259. ;GOTO disp_choice
  260.  
  261. CHOICE1
  262. SET ch = 2
  263. GOTO okpath
  264.  
  265. CHOICE2
  266. SET ch = 3
  267. GOTO okpath
  268. ENDCHOICES
  269.  
  270. :okpath
  271.  
  272. ;----------------------------------------------------------------------------
  273.  
  274. IF NOT EXISTS <confile> GOTO no_config
  275. DISP 5,14 Reading configuration...
  276. READCONFIG <confile>
  277. :no_config
  278.  
  279. ;----------------------------------------------------------------------------
  280.  
  281. HSCOUNT hs
  282. IF NOT <hs>==0 GOTO have_hs
  283.  
  284. CLEAR
  285. TEXT  Problem-  You have no CD-ROM drives installed.\n\n
  286. ----Please use the install disk supplied by your CD-ROM drive manufacturer
  287. ---- to install the device driver software, and then repeat this install
  288. ---- program.\n\n
  289. ----Note: The CD-ROM drive install disk will copy some files to your system
  290. ---- disk and modify the CONFIG.SYS and AUTOEXEC.BAT files.\n
  291. ----Unless you have other programs which use the MSCDEX program, it is
  292. ---- recommended that you remove the line calling this program from your
  293. ---- AUTOEXEC.BAT file, since this software does not require it.\n\n
  294. ----Be sure to reboot after the CD-ROM drivers are installed.
  295.  
  296.  
  297. WAIT
  298. ABORT
  299.  
  300. :have_hs
  301. ;TFPL 19-11-93
  302. GOTO get_hs_letter
  303.  
  304. SET msg =
  305. IF <hs>==1 GOTO instOne
  306.  
  307. TEXT A selection of <def_cdtype> CD-ROM drivers are available:\n\n
  308. ----Select the <def_cdtype> CD-ROM device driver from this list of av